home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / card_24658.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  58 lines
  1. -- card: 24658 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3837
  5. -- name: isRunning
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=82 top=302 right=324 bottom=182
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Install
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionkey is down then pass mouseup
  23.   put installres(XFCN,isRunning) into it
  24.   if it is empty then play oops
  25.   else answer it
  26. end mouseUp
  27.  
  28.  
  29.  
  30. -- part contents for background part 10
  31. ----- text -----
  32. 13
  33.  
  34. -- part contents for background part 5
  35. ----- text -----
  36. isRunning
  37.  
  38. -- part contents for background part 6
  39. ----- text -----
  40.  
  41. Checks to see if a program is already running under MultiFinder.
  42.  
  43. -- part contents for background part 7
  44. ----- text -----
  45. Syntax:
  46.  
  47. IsRunning(programName)
  48.  
  49. programName is the short name of the program.
  50.  
  51. Returns TRUE if programName is running, else it returns FALSE.
  52.  
  53.  
  54.  
  55. Example:
  56.  
  57. put IsRunning(MacWrite) into result.
  58.